(format-deannotate-region): In case of unmatched tags,

avoid using nil where end position is expected.

diff --git a/lisp/format.el b/lisp/format.el
index 5dff28edd3c7b34d4a8689d3801c1f6ebf9dcc37..c2a096f09d631720d1732424ee74dac9bec5b9a5 100644 (file)
--- a/lisp/format.el
+++ b/lisp/format.el
@@ -636,7 +636,7 @@ to write these unknown annotations back into the file."
                      ;; Store as value of text-property `unknown'.
                      (let ((extents top-extents)
                            (start (car (car top-extents)))
-                           (loc (cdr (car top-extents))))
+                           (loc (or (cdr (car top-extents)) loc)))
                        (while extents
                          (setq open-ans (cdr open-ans)
                                todo (cons (list start loc 'unknown top-name)